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MODULE SMGSMI 
001 pM LtO18 gPEnt = "1-018" ! File: SMGMIN.832 Edit:PLL1018 
= 


BEGIN 


. 
POP EEEOCSOSSLI IIIT ICI ITT TT TET ITI rrr irri rir ti iii iit isi titi iitirtiiiititi 


'® 

ie COPYRIGHT (c) 1978 bs FF 1982, 1984 B 

ie DIGITAL QUIPMENT EORPORAT TION, MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


1 
1 * 
1 w 
1 se 
1 b 
1 a 
1 . f 
1 Ie re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH hice SE AND WITH THE * 
1 !* INCLUSION OF THE ABOVE ere NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 !* COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
| '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
oy 
1 & 
1 * 
1 * 
1 ea 
4 ® 
1 ca 
1 oy 
4 oo 
1 y 
41 * 
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OQOoooocooooooo 


!t TRANSFERRED. 


:*® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: empohat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
PEEPLES EISISI OTST EET ETE T TTT TTT TT rice c ceri iii iii iii iii titi ici tiiiigy 
n 


CSooooooooooooSo 


Ssssosoeoeo 


Rororonorornororoenery 


CONOUNE a ee Ne 


RRoPooNononononnny 3] 3 


SSssssss 


-_o 


—_ 
z 


15 
Minimal update calculati @Jan-1985 21:55:1 AX-11 Bliss-32 v4.0-74 ° 
ietiecs nines ee az geet $-Jan- 1985 Ghi88:1) PASAT Ob igge 36 ¥8n00 788. age 5§ 


a3 


te4 

! FACILITY: screen Management 

i ABSTRACT: 

This module contains routines which inspect two screen 
fopresentet tens and calculate the near-minimal sequence of 
terminal commands to change the current contents of the screen 
to the new representation of the screen. 


' 
t 
i] 
' 
a 
4 
! 
' 
' 
ENVIRONMENT: User mode, SMG package. 
q 
4 
i] 
i] 
t 
' 
1 
1 


Sososooooes 
BRBUSARGIOS 


rad 

& 
ce ce ce DD ee ce ce ce ee ee ee ee aD ee ee ed ee eed 
wm 


i AUTHOR: Stanley Rabinowitz, CREATION DATE: 1-May-1983. 
N_CURSOR_POS is by PKR. 


VISA —OOONOULS Wh 


FIND_M 
i MODIFIED BY: 


MEWN—O 


i 1-018 - STAN, She Sat 9 Change + to OR and optimize call to PUT_SCREEN. 
-01 e- 4. 


Sees Se Se Sees esee & 
Ssess 
2 
v 
eee 
a 
a ab ed at 
at ot a 
2.000000 CD 0D 
eetttttttss330 


:002 : 8 1i1 - PLL, Oct-1984. Fix fo SMGSSOUTPUT_MINIMAL_UPDATE to minimize 

; g 9 : the number of Q10s. 

008 =PLL ? i VMS v4.0} 

; «48 : i 1-016 = STAN 6-Jun-1984. Ghenge error messages in MSGSSET_PHYSICAL_CURSOR. 
$3 3 ! 1-001 = STAN, 1-May-1983. Initial version, mimicked SCRMIN.B32. 
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Update physical cursor position 
erase to end-of-line 

Generate general set-cursor 
positioning sequence. 


SMGSSUPDATE_PAYSICAL~ CURSOR, 
ERASE _LINE, 
SET_CORSOR: 


INCLUDE FILES 


Sssssesooeooes 


AOOWDOONNNNAS 


NR UN "OC OONOUSE 


SMGSMIN Minimal update calculation -Jan-1985 21:55:1 AX-11 Bliss-32 V4.0-74 P 
1-018 Declarations ees 1 93:33:14 ONGRTL BuceReISNChGN 6 2;1 vies (33 
: $ § XSBTTL ‘Declarations’ 
: 4 ; SWITCHES: 

$ 6 i NONE 

6 ' 

8 ' LINKAGES: 

: 88 ji 

60 4 ! NONE 

61 5 ! 

$6 068 ' TABLE OF CONTENTS: 

6 ! 

gs ; 

o? 3 FORWARD ROUTINE 

67 71 SMGSSET_PHYSICAL_CURSOR Move physical cursor on screen 

68 ie: SMGSSOUTPUT_MINIMAL UPDATE, Output immal update sequence 

$3 7 SMGSSF IND_MIN_CURSOR POS Output minimum cursor sequence 

4 

ig 

74 

75 

76 

77 

78 

79 

80 


REQUIRE ‘RTLIN:SMGPROLOG'; 
REQUIRE *RTLIN:STRLNK.REQ'; 


EXTERNAL REFERENCES 


defines psects, macros, structures, 
& terminal symbols 
JSB Linkages | 


1 
1 


rs 


UME OO NAUE WO O08 


EXTERNAL ROUTINE 


SMGS$SOUTPUT 
SMGS$FLUSH_BUF FER; 
te 


i $OUTPUT_STRIN 


PAA 


: in order that we should go through a faster code path 
nm SMGSSPUT_SCREEN, we omit the [ast argument if it is 0. 


MACRO 
SOUTPUT_STRING(LEN,ADDR,ATTR) = 
BEGIN 
sags] ROUTINE SMGSSPUT_SCREEN; 
+ $s thar 


LOCAL 
IF 


cc ce ee ee ee ee ee ee ee Dm ee ee ce ee ee me a ee a ee ee ee a ee ed ed ed ee 
- 


<2 ccepept teeters 
ja “SSS sae a ne e93 
eee eS ee I 
Ooooocccococccooooooooooooooooo 


ATTR EQL O 
THEN STATUS=SMGSSPUT_SCREEN(PBCB,LEN,ADDR,0,0) 


SMIN Minimal update calculation bane 1 AX-11 Bliss V4.0-74 
ett beclarat ions =h20= 1382 #3: 33; 13 SMGRTL” BUGS a sheatne 852;1 
2005 EPL 1018 hy) LSE STATUS=SMGSS$PUT_SCREEN(PBCB,LEN,ADDR,0,0,ATIR); 
: ma NOT .STATUS THEN RETORN .STATUS 


i Macro $L Linearizes a two dimensional subcript formed by @ 1-based 
: row number and a i-based column number, into a single 0=based 
;_ Subscript. 


MACRO 


it (ROW NUMB COLUMN NUMBER) 
OW NUABER@1). *.NUM_COCS + COLUMN NUMBER -1 2; 


14 


SMAKE _ROW_COL 


i Macro “SHAKE ROW COL takes as an input a O-based Linear index into 
i and arra ahd converts it into a 1=based row and l-based column 

i form. INDEX needs to be re-expressed as a quadword for use in the 
t EDIV instruction. 


MACRO 
X, Coe MUnBER. COLUMN_NUMBER) = 


Lem, 


SRIEREENISSSLSSELNLSESE 
a aa a ee ee ea ee a ce ee a ee ed ed = od ed od ed 


LOCAL. OCA 1) zs os PH J .socond longword is always 0 
LOCAL_ INDEX (0) = a 


eu : VECTOR C2, LONG); 
WIDTH=.NUM_COLS; * Soles width in longword 
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= Calculate minimum 3-Jan- 1986 $3:33:1) SMGRTL BUGERCISHCAINB 231 . (43 | 
ZSBTTL *SMGSSOUTPUT MINIMAL_UPDATE = Calculate minimum update sequence’ 
GLOBAL ROUTINE SMGSSOUTPUT_MINIMAL_UPDATE (P_PBCB) = 
FUNCTIONAL DESCRIPTION: 
This routine compares CURR_TEXT and CURR_ATTR (which reflect 
what is currently on the screen), with NEW TEXT and NEW_ATIR 
(which reflect what should be on the screen) and calculates a 
sequences of characters which when output to the screen changes 
the current screen contents to reflect the new (desired) screen 
contents. These characters are actually output to the screen. 
CALLING SEQUENCE: 
ret_status.wic.v = SMGSSMINIMUM_UPDATE ( P_PBCB.rab.r) 
FORMAL PARAMETERS: 
P_PBCB,rab.r Address of pasteboard control block 
IMPLICIT INPUTS: 
Contents of PBCB and WCB 
IMPLICIT OUTPUTS: 
Internal buffers change. 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 


peters calculation 
TPUT_MINIMAL_UPDATE 
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SMGSMIN Minimal update calculation =Jan-1985 21:55:1 AX-11 Bliss-3 
Ty SMGSSOUTPUT _MINIMAL_UPDATE = Calculate minimum araet= 1984 93:33:15 EONGRTL BUGSAC 
. 7 455 BEGIN 

s 188 4 

; 188 4 BUILTIN 

> 189 4 

; 3% 4 CMPC3; 

: 192 te) $ BIND 

: 198 ase 

> 194 46 PBCB = .P epee : Be OeKE BYTE . 
; 195 464 wCB = .PBCBCPBCB_A WCB) : BLOCKL BYTE), 
; 196 465 UM_ROWS = wCB WCB _W=ND ROWS) : WORD, 

; 19 188 UM_COLS = WCBLWCB_W_NO COLS : WORD 

; 198 CUR-TEXT = .WCBCWCB_-A-SCR_TEXT_BUF : VECTORC BYTE), 
; 199 468 CUR_ATTR = .WCBLWCB_A_SCR_ATTR_ BUF : VECTORE BYTEI, 
: 200 8 9 NEW_ TEXT = .¥CB wee A TenT urd : VECTORE BYTEI, 
; 201 470 NEW-ATTR = .WCBCWCB-A-ATTR_BUF : VECTORE BYTE, 
; O og EW_LCV = .WCBLWCB_A_LINE CHAR] VECTORL ,BYTEJ, 
> 20 Le CUR_LCV = ,WCBCWCB_A_SCR_CINE CHAR) : VECTORL BYTEJ, 
> 204 047 OLD_CURSOR_ROW = WCB ueB WOLD CUR ROW, : WORD, 

3 @0e 0474 OLD_CURSOR_COL = WCBLWCB_W_OLD CUR COL WORD, 

; 206 0475 NEW-CURSOR-ROW = WCB vCB"W-CURR_CUR_ROW} WORD, 

; 207 Bere NEW CURSOR _COL = WCBLWCB_W_CURR CUR COL WORD, 

; 208 por SIZE = WCBCWCB-L-BUFSIZE) ! Size of buffers 
; 209 478 FIRST ROW = PBCBCPBCB_W_FIRST_CHANGED_ROW] : WORD, 

3 210 0479 ST_ROw = PBCBCPBCB-W-LAST_ CHANGED ROW) : WORD, 

3; any 0480 FIRST_COL = PBCBLPBCB_W_FIRST_ CHANGED co. : WORD, 

; i 0481 LAST_COL = PBCBLPBCB_W"LAST CHANGED _COL] : WORD, 

: + pone TERM_TYPE = PBCBLPBCB_B_DEVTYPE) : BYTE; 

: 215 LOCAL 

3 i ie 

3 (at 56 STATUS, ! Status to return to caller 

; 218 04 INDEX, ! Working index into the buffers 

: 219 8 8 ROW, ! Working row number 

; 220 9 COL, : Pork inp column number 

; 1 04 LEN, ' Local length 

3 § 0491 ADJUSTED_COL, _! Wide Lin adju ted column number 

3 985 CUR_TEXT_PTR : REF VECTOR C,BYTE), ! Current pointer into 

; 4 049 ! current text buffer 

; 5 ReRe CUR_ATTR_PTR : REF VECTOR C,BYTE], ! Current pointer into 

; $ 95 ' current attribute buffer 

: Bee NEW_TEXT_PTR : REF VECTOR C,BYTEJ, ! Current pointer into new 

3 8 9 ' text buffer 

; 38 NEW_ATTR_PTR : REF VECTOR C,BYTE), ! Current pointer into new 

5 ! attribute buffer 

; 1 500 END ROW INDEX, ! [nder to | sf character in current row 

: ¢ 28) RENDITION ' local rendition 

: 5 ¢ FINAL_INDEX, local index representing end of a changed sequence 
; 5 CURSOR_ROW, ! Current cursor row 

3 5 5 : CURSOR_COL, ! Current cursor column 

; 2 NEW CHARS LEFT, 

3001 :PLL101 : CHARS_LEFT, ! Number of characters left to be inspected. 

3 1 :PLL101 ! Starts out equa’ to number of characters 

3 :PLL101 ; ! in the four buffers. 

3 :PLL101 10 OLD_MODE ; ! Original mode bit settings 
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SMGSSOUTPUT NINIMAL_UPDATE = Calculate minimum Sadetalobe fo:c0;19  Yenentibuesneismcnen oS251 ey A 
| 
1 1+ 
a1 ! If CTRL/O was typed previously some te has returned with 
1 i that success status and our CTRL/O bit s set. We don't 
14 : really know what the screen looks Like anymore, so we 
316 : clear out the screen buffer. 
1 . 
218 If _.PBCBCPBCB_V_CONTROLO) 
51 THEN BEGIN ! Clear screen buffer 
520 CHSFILL(O,.SIZE,CUR_TEXT); 
$21 FIRST_ROW=1; 
: § FIRST COL=1; 
LAST_ROW =.NUM_ROWS; 
524 LAST_COL =.NUM_COLS; 
525 PBCB[PBCB_V_CONTROLOJ=0 
: § END; '“cTear screen buffer 
5 $ '¢ 
5 ! Initialize our working pointers into the buffers. 
530 ! For now: we invalidate the initial cursor position 
; ; : to force the first update to use full cursor addressing. 
5 . 
5 CURSOR_ROW=0; 
; 5 CURSOR_COL=0; 
5 '¢ 
5 Most of the following output calls result in Q10s. There is no 
5 : need to use multiple output calls for Line characteristics, rendition, 
5 ! cursor positioning, and text; all this could be combined in 1 Q10 if 


the number of bytes fits within our Q10 buffer. 


As a quick fix, we'll turn on byt ter sne at the beginning of this routine, 
and turn it off at the end. This should result in 1 Q10 if everything 
fits in the duffer. 


o 


OLD_MODE = .PBCB CPBCB_L_MODE_SETTINGS); 
fy wet -PBCB CPBCB_V_BUF _ENABLED) 

PBCB CPBCB_L_MODE_SETTINGS] = .OLD_MODE OR SMGSM_BUF_ENABLED; 
INCR ROW FROM -FIRST_ROW TO .LAST_ROW DO 

BEGIN ' Scan row .ROW 

rn PTEXT,PATTR; 


LOCAL L; 
LOCAL PRE_PTR_IN_ROW; fois r position just before first character 
n 


DPPPPAANMIIN Ee BE PEPE EEE 


o 
=z 
w" 
ee | 
°o 
4 


TR ATTRE( C 
NEW"TEXT"PTR = NEW" TEXT+(.ROW=1)®.NUM-C 
NEWATTR-PTR = NEWWATTR¢(.ROW=1)®.NUM-C 


10g NEWLLCWE ROU) EQL 0 
CHARS_LEFT=.NUM_COLS 


OPV PVP PUPV PPPS PAPA AAMAS 


SOQOOOOoQooQoQOQooooooooooooooooooooooooooooooo 


S 
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Noo 
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vc 
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Te - Calculate minimun B-dan-1988 {3 33: SMGRTL BUgERE 


LSE 
CHARS eas COLS/2; 


CHARS_LEFT=.NUM_COCS; 
PRE_PTR_IN_ROW=.CUR_TEXT_PTR=1; 


—OOoeo ww 


~N 


i" See if the characteristics of this Line must change. 


- ~CUR_LCVC.ROW] NEQ .NEW_LCVC.ROW) 


PUPP SSVI IIIT 


SSSBLEAFAN AS Sao rows 


DoO00O0 


MADAMA 
VMPWwN— 


SSS990999990909900000000 
Oo 
aus 


BESSSSEESS 
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BEGIN ! Change Line characteristics 
LOCAL BUFFER : VECTORCSMGSK_LONGEST_SEQUENCE BYTE), 
BUFLEN; 


EXTERNAL ROUTINE 
SMGSSOUTPUT; 


14 
i ; Move to the desired row. 


sraner ten juan. peneen fae ( PBCB ! Pasteboard Control block 
CURSOR R_ROW, ! Current row 
CURSORS COL, ! Current column 
ROW, ' Desired row 
1); ' Desired column 


'¢ 

i j_Wosete our record of where we are on screen. 

CURSOR_ROW = .ROW ; 

CURSOR-COL = i; 

BUF LEN=0; 

'¢ 

Get escape sequence to change the Line characteristics. 


SELECTONE.,NEU.LCVE.ROWI OF 


iL INE_K_WIDE): SSMGSGET_TERM_ DATA(DOUBLE WIDE); 
LINE“K-UPPER HIGH} SSMGSGET- TERM DATA( DOUBLE “HIGH_foP 
LINE~K"LOWER“HIGH SSMGS$GET~TERM~DATA( DOUBLE -HIGH “BOTTOM ; 
b {NE _K_NORAAL J: SSMGSGET"TERM_DATA(SINGLE-HIGHY 


'¢ 


i 5 Sutout it. 


IF_ .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN BEGIN 


mal 


i 
$ 


MTN IPN 


= OOONOUW 


PAEAAAAAD FESR 


DAA TADIVA TIT = 
DONOUSWN—OOw 
NAME WO OODNAU LE User 


33335333 


3 


MEWN OO 


AP Gws 


Atte 
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PDATE = Calculate mir.imun B-ana1965 Peay | PeMGAT ebigga 


STATUS=SMGSSOUTPUT (PBCB, .PBCB PBCB_L_CAP -LENGTH) 
. PBCBLPBCB-A-CAP-BUFFERJS; 

IF NOT .STATUS 

THEN 


BEGIN 
PBCB CPBCB_L_MODE_SETTINGS] = .OLD_MODE; 
A URN mS TRT Os 


END; ! Change Line characteristics 


t+ 
i Scan backwards looking for the largest sequence of trailing spaces. 
7 BLANK_COL to the column number of the start of such a suffix. 


BLANK_COL=.NUM_COLS+1; 
PTEXT=NEW_TEXT?.ROW*.NUM_C 
PATTR=NEW_ATTR+.ROW*.NUM_ - 
ECR ¢ TRON «NUM, COL$ TO” 


PTEXT=.PTEXT=1; 
PATIR=.PATIR=1; 
BEGIN 


: BYTE, 
: BYTE; 
AND .ATTR_CHAR EQL 0 
THEN 
ELSE EX TLOOP 
END; : 
WHILE .CHARS Yo _= 0 00 
IF “fue jet Pi-pinidy EQL .NEW_ yout R-PTREO] AND 


R°™PTR L .NEWLA 
THEN srscters’ ar 3 


NEW ATTR-PTR=.N ay W-ATTR-PTR#1; 
CHARS aLEFT=. CHARS-LEFT=1 
' Characters agree 
BEGIN ! Characters disagree 


INDEX=. CUR_TEXT_PTR=CUR_TEXT; 
COL=.CUR_TEXT_PTR=.PRE_PTR_IN_ROW; 


'¢ 

i at this point. the cursor is The first eh at 

i -CURSOR_ROW, .CURSOR a ees ppneracter that 
! needs td be r written | s a oR 


' Determine a mininal ate sequence oF get u 


s from 
more cursor is to r. neecs to be to do rewrite. 


aS sMGhIN.B B52;1 
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SMGSMIN Minimal ypdate calculation B-Jan-19 5 $h:33:1) AX-11 Oh tas534 V4.0-742 rage 10 
1-018 SMGSSOUTPUT_MINIMAL_UPDATE = Calculate minimum “0ct-1984 12:58:19 SMGRTL.BUGSRC SMGMIW.B32; 1 (6) 
; 400 poge 2 
; 401 06 + 
; 40 0684 2 : Set the column to ‘'unknown"’ if we are past the end of 
; 40 0685 ! the terminal width. We cannot assume that the c::rcor 
; 404 0686 5 ! has become stuck in the last column, because the 
>; 405 0687 5 ! user ney have done a SET TERMINAL/WIDTH=n command 
; 406 0688 5 ' to shorten his logical terminal width. 
; 407 0689 5 !- 
; 408 0690 5 
>; 409 0691 2 IF_.CURSOR_COL GTRU_.NUM_COLS 
: $19 begs é THEN CURSOR_COL=0; 
: re 0694 5 SMGS$FIND_MIN_CURSOR_POS ( PBCB, ! Pasteboard Control block 
3» $y 0695 5 ~CURSOR_ROW, ! Current row 
> 414 0696 2 -CURSOR_COL, ! Current column 
s 415 0697 ROW ' Desired row 
> 416 0698 5 -COLS; ! Desired column 
; 417 0699 5 
; 418 0700 5 '+ 
; 419 0701 5 : Update our record of where we are on screen after 
; 420 0702 5 ! we output as much of the string as is currently in 
; $s) 0703 5 ' our buffer. 
; 4 ; 0704 5 !- 
: 42 0705 5 
> 4246 0706 § CURSOR_ROW = .ROW ; 
3; 425 0707 5 CURSOR-COL = .COL ; 
> 426 0708 5 
3; 427 0709 5 + : 
: 428 0710 5 ' Now that we are positioned at first difference, 
3 $93 0711 5 ! figure out what needs to be written. 
; 430 ar 5 = 
3 «431 0713 5§ 
3 $36 0714 5 + 
; 43 0715 5 ! If we are at or past the blank pointer, then 
; 434 0716 5 ' just blank the remainder of the Line and exit. 
: 435 0717 5 te 
; 436 0718 5 
: 437 0719 5§ IF_.CURSOR COL GEQU .BLANK_COL 
; 438 0720 6 THEN BEGIN  ! erase rest of Line 
; 439 0721 6 LOCAL STATUS; 
;. 440 07 ; 6 STATUS=ERASE_LINE(PBCB); 
3001 :PLL1018 07 6 IF NOT .STATOS 
: ; :PLL1018 724 8 THEN 
005 ret tf 725 BEGIN 
: :PLL101 7 § 7 PBCB CPBCB_L_MODE_SETTINGS] = .OLD_MODE; 
7005 :PLL1018 Ors 7 RETURN .STATOS 
3 :PLL1018 728 6 ND; 
: 642-1 0729 EXITLOOP 
3; 464 0730 END; ' erase rest of Line 
3 466 of 1 
3; «64445 7 g '¢ 
3 666 07 ! Note that our Linear position within the buffer 
3 447 Boe ! is given by the index INDEX. 
3; 448 735 ' We now calculate the Linear position of the last 
: 4649 07 § ! character on this row, storing the resulting index 
: 450 7 f | in END_ROW. INDEX. 
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E = Calculate minimum $-Jan- 984 12: 


END_ROW_INDEX=$L(.ROW,.NUM_COLS); 


14 

i We now must search between INDEX and END -ROW_ INDEX 

! for the Longest sequence (all of the same rendition) 
s of changed characters. 


14 

i Step 1: find the longest sequence of characters 

! that are all of the same rendition 

i" our currently desired srtriauese in RENDITION. 


RENDITION = .NEW_ATTRC. INDEX); 
FINAL_INDEX = .ERND_ROW. INDEX+4; 


'¢ 
i Set up FINAL_INDEX to be the first index pa.t 
‘ the longest Such difference sequence. 


INCR I FROM ee as ~ END _ROW = DO 
SEGIN or end o ange 
Wt. NEW. Texte 1 Ag ea. CUR re C.1.) AND 


~ oe RE.1:) 
OR .NEW_ hh NEG. NDITION 
THEN ~ : Ti at Ss 
PIMA t INDEX=.1; 
EXITLOOP 


END; ! end-of-change 
END; ' scan for end of change 


'¢ 
i We ney must update the screen from .INDEX to Aa be INDEX-1 
i The fi ons using the attributes stored in RE NDIT ION. 
he final SPACE_COUNT positions are to be erased. 


endian, paths. bees 


IF .LEN GTRU 0 
THEN BEGIN ' output revised sequ 
Fksoe T STRIN ( .LEN,.NEW_T XT "PTR, -RENDITION) ; 
R_COL=.CURSOR_COL+.LEN 
EMD “ ! output révised sequence 


4 
Update our pointers and the number of chars left. 


CUR_TEXT_PTR =.CUR_TEXT_PTR*.LEN; 
CURTATTR~PTR =.CURATTR-PTR+ LEN; 
NEW-TEXT“PTR =.NEW-TEXT-PTR +.LEN; 
NEWTATTR~PTR =.NEW-ATTR-PTR +.LEN; 


genet aa: | 1: +33! 1} AX=11 Bliss-3 
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SMGSMIN Minimal update calculation B-Jan-t9 § 2.:55:11 AX-11 Bliss-32 V4.0-74 ° 1 
1-018 SMGSSOUTPUT_MINIMAL_UPDATE = Calculate minimum -0¢t-1984 12:58:19 OMGrTL BUSERCISMCHIN G é31 — (aS 
: 208 6 CHARS_LEFT=.CHARS_LEFT=.LEN 
; 311 9 END ! Characters disagree 
HE RE a2 1S sev ee 
3 5 ' scan row. 
. SVD O80 
s 316 080 '¢ 
> 517 C804 ! Make the two buffers agree. 
3; 3 0805 ! The screen now contains what we think should be there. 
; 519 0806 l= 
; 520 0807 
; $21 0808 CHSMOVE (. SIZE ,NEW_TEXT,CUR_TEXT); 
“eS ¢ 0809 CHSMOVE(.SIZE,NEW_ATTR,CUR ATTR); 
; 323 0810 CHSMOVE (.NUM_ROWS?1,NEW_LCV,CUR_LCV); 
: Se 0612 1+ 
3 3e 081 ! Move the cursor to the place where the user thinks it is. 
s Ser 0814 ! (But only if we are not already there.) 
; 528 0815 '- 
: 44 0816 
; 530 0817 IF_.CUR_LCVC.NEW_CURSOR ROW) NEQ 0 
; 531 0818 THEN “ADJUSTED_COL=.CORSOR_COL 
: 236 +4 § ELSE ADJUSTED-COL=2*.CURSOR_COL-1; 
: 534 0821 2 OLD_CURSOR_ROW=.CURSOR_ROW; 
: 232 5858 OLD_CURSOR_COL=.CURSOR_COL; 
: 537 0824 2 SMGSSUPDATE_PHYSICAL_CURSOR(PBCB); 
3; 338 0825 
3001 :PLL1018 Of? § '¢ 
3002 :PLL1018 062 ! Reset to user's value. Flush buffer if switching to non-buffered mode. 
3003 :PLL1018 base § !- 
3004 ret tt | 08 
7005 :PLL101 08 PBCB CPBCB_L_MODE_SETTINGS] = .OLD_MODE; 
3006 eis 0831 
2007 :PLL191 tt If NOT .PBCB CPBCB_V_BUF_ENABLED) 
3008 :PLL1018 08 THEN 
7009 :PLL1018 0834 SMGSSFLUSH_BUFFER (PBCB); 
3010 :PLL1018 0835 
3 44 ti RETURN SS$_NORMAL 
> 541 0838 1 END; ! End of routine SMGSSOUTPUT_MINIMAL_UPDATE 
TITLE SRGSHIN Minimal update calculation | 
eIDENT \1-018\ 
-EXTRN SMGSSOUTPUT, SMGSSFLUSH_BUFFER 
eEXTRN SMGSGET_ TERM _DATA 
.EXTRN SMGSS$PUT_SCREEN 
-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY SMGSSOUTPUT_MINIMAL UPDATE. Save R2,R3.R4,- ; 0420 
R R6,R7,RB,RI,RI0O,R11 3 
SE FEB8 CE 9€ 00002 MOVAB =328(SP); SP ; 


16 
SMGSMIN Minimal update calculation b-Jan-t9 5 255:1 AX-11 Bliss-32 V4.0-74 P 
1-018 SHGSSOUTPUT. MINIMAL UPDATE = Calculate minimum =g2n=1 382 $3:33:14 SMGRTL BUSERCISNGAGN. 6 2:1 - ay 
9 04 AC D 7 MOVL P_PBCB, R9 : 0463 
3, 8 A ti op MOVL tR9) R10 : 46 
4 AA DD F PUSHL (R16) : 467 
4 000 9 OC te Re Beare Rpt ah o0RCROD. 1 : Osis 
28 AA 86 6E i » gE 1B mMOVCS #0; (SP), #6, 40(R10), a4(SP) + 0520 
00A8 C9 6 B 3 MOVW = #1, _:168(R9) + 0521 
OoOAC 9 1 8B MOVW of 1$3(R3) : O38 
OOAA 9 02 AA B MOVW (R10), 170(R9) : 052 
OOAE 9 06 AA : MOVW  6(R10). 174(R9) t 0524 
0000 ¢9 40 8F 8A BICB2 #64, 208(R9) : 05¢5 
1C AE D4 F 1$: CLRL CURSOR_ROW + 0534 
10 AE ps dhe ee RSOR COL : 0535 
16 AE oC A 04 MOVAB 12(R9)> 20(SP) > 0548 
24 «AE 14 BE DO O004A MOVL  a20(SP5, OLD _MODE : 
06 14 BE EB OO04F BLBS  a20(SP). 2 + 0550 
16 BE 4 AE 01 053 BISL3 #1 OLD _MODE . a20 (SP) + 0552 
cts OOAA C9 3C 00059 2s: MOVZWL 176¢R > 60(SP) > 0554 
5 00OAB C9 ¢ O5F MOVZWL 168(R9). : 
52 p 064 DECL ROY ; 
0268 31 00066 BRW 32$ : 
08 AE FF A2 9E 00069 3S: MOV <1¢R2), 8(SP) : 
58 06 AA 3C 0006 MOVZWL 6(R10). R11 ; 
08 AE 5B C4 0007 MULL2 R11, 8(SP) : 
53 04 AE 08 AE C1 0007 ADDL3 8(SP), 4(SP), CUR_TEXT_PTR ; 
34 AE 18 AA 08 AE Ci 0007 ADDL B<SP), g4 (R10), COR_ATTR_PTR : 
20 AE 08 AA 08 AE C1 0008 ADDL (SP), 8(R10), NEW TEXT PTR : 
30 AE 6E 08 AE C1 OOO8A ADDL3 8 (SP) (SP) NEW_ATTR_PTR : 
50 C BAGS 9A 9090 MOVZ7BL a44(R10)CROW], RO ; 
06 if; 0009 BNEQ  4$ ; 
28 AE 2 D0 00097 MOVL R11, CHARS_LEFT ; 
0 11 00098 BRB 5$ F 
28 «AE 58 é g7 4$ DIVL3 #2, R11, CHARS_LEFT ; 
5 FF OAS OE QA 5$ MOVAB -1(R3), PRE PTR IN_ROw ; 
0 30 BASe 91 000A6 CMPB =s-s«@48 (R10) CRODI, R : 
0 1 AB BNEQ 6$ : 
00F1 3 AD BRW 14$ ; 
1 dD 80 6$: PUSHL #1 ; 
2 0D PUSHL ROW ; 
18 AE DD PUSHL  CURSOR_COL : 
28 AE DD 00087 PUSHL CURSOR ROW ; 
59 Db OOOBA PUSHL R : 
0000v CF : F 2 CALLS #5, SMGSSFIND_MIN_CURSOR_POS ; 
1¢ AE D C MOVL ROW, CURSOR ROW ; 
10 AE : D ¢5 VL = #1, CURSOR_CO ; 
4 000€9 LRL BUFLEN : 
50 2c BA42 9A 000CB MOVZBL @44(R10)CROW], RO ; 
01 3 1 RO, #1 ; 
1 D BNEQ : 
OoFc =C¢ p D TSTL 2(R9) : 
bE D BEQL 0s ; 
44 AE D4 00008 CLRL _—sINPUT_ARGS ; 
A F DE PUSHAB INPUT"ARGS F 


PUSHL sii 
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SMGSSOUTP AL UP DATE - Calculate minimum “Oct-19 
1¢ AE O1CE BF E MOVZ2WL #462, 28(SP) ; 
: if 6f BRB $ : 
02 3 91 000F5 7$: CMPBseRO, #2 : 
1 F BNEQ : 
Oorc =C¢ p FA TSTL (RO) : 
49 F BEQL 0 3 
44 AE pi 1 CLRL __—sINPUT_ARGS : 
44 Ar F 001 PUSHAB INPUT~ARGS : 
104 CS DD 001 PUSHL  260(R9) : 
1 8 C9 OF OO10A PUSHAB 264(R9) : 
10 c9 F 001 PUSHAB 256(R9) : 
1¢ AE 10D «=o BF. 3: 00111 MOV7WL #461, 28(SP) : 
40 11 0011 BRB 1 : 
03 50 91 OIA 8$: CMPB sO, #3 : 
20 12 00110 BNEQ 9 : 
OOFC c9 d5 OO11F TSTL : 2(R9) : 
4 13 001 : BEQL. os ; 
44 AE OG 1 CLRL __—sINPUT_ARGS : 
44 AE 9F 00128 PUSHAB INPUT~ARGS : 
0104 C pp 0128 PUSHL  260(R9) : 
0108 C9 OF OO12F PUSHAB 4(R9) : 
100 c9 OF 001 : PUSHAB 256(R9 ; 
1B O1cc }«=— BF 3C (001 MOVZWL #460, +BcsP) : 
8 11 0013p BRB 12$ ; 
0 DS 0013F 9$: TSTL RO : 
6 1 O14) BNEQ 13$ : 
Oorc 4209 (OD 143 TSTL #52(R9) : 
06 12 0014 BNEQ 1$ : 
0108 C9 D4 00149 10$: = CLAL #64(R9) : 
A 11 00140 BRB $ ; 
44 AE p4 O14F 11$:  CLRL__—sINPUT_ARGS : 
44 AE 9F 001 : PUSHAS INPUT~ARGS ; 
106 ¢ pp 01 PUSHL  260(R9) F 
108 C9 OF 00159 PUSHAB 64(R9) : 
1 9 3 15D 5 g(R9) ; 
1c AE O23 8F 3C 00161 MOVZWL #574, 28(SP) F 
1¢ AE 9F 00167 12$:  PUSHAB sooth F 
OOF C 9F OO16A PUSHAB 252(R9) ; 
000000006 00 6 Fe 1g CALLS SHGSGET_ TERM_DATA ; 
1 1 BLBS stk : 
4 0017 RET ; 
50 0108 C9 00 00179 13$: MOVL gggine)- RO : 
1 13 0017 BEQL ; 
0106 ¢€9 DD 001 PUSHL (RO) : 
DD 001 PUSHL ‘ ; 
DD 001 PUSHL R ; 
00000006 00 FB 001 CALLS #3, SMG$SOUTPUT ; 
40 AE dO 001 MOVL RO. STATUS ; 
OA 40 AE €E8 001 BLBS STATUS, 14$ ; 
14 Bf 24 AE BO 001 VL  OLD_MObE, a20(SP) : 
0 AE 19 MOVL STATUS, RO ; 
4 01 : 1A1 148 MOV 1(R11), BLANK_COL : 
50 2 5 § 1A MULL3 R11 RO : 
Oc AE 08 BAS : 1A MOV a8 (R10) RO}, PTEXT ; 
51 $f 5 Var ADDLS RO, (SP), PATIR : 
01 AB 1B MOV 1(A11), € ; 
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985 21:55:1 AX-11 Bliss-32 V4.0-74 Pa 
Gee Taikais =| PeNGA Obieen2g Me.0 76 2:1 _ 
BRB 16$ ; 
DECL PTEXT : 
DECL PATIR : 
CMPB 0s @PTEXT, #32 ; 
BNEQ $ : 
TSTB = (PATTR) : 
BNEQ : 
MOVL , BLANK. COL : 
SOBGTR (C. : 
TSTL HARS_LEFT : 
BNEQ 9$ : 
BRW es 3 
CMPB © (CUR_TEXT_PTR), @NEW_TEXT_PTR : 
BNEQ 20$ ; 
CMPB © @CUR_ATTR_PTR, @NEW_ATTR_PTR : 
BNEQ 20$ $ 
INCL  CUR_TEXT_PTR : 
INCL § CURTATTR™PTR : 
INCL NEW TEXT“PTR : 
INCL NEW-ATTR™PTR ; 
DECL CHARS LEFT : 
BRB 7 3 
SUBL3 4(SP), CUR_TEXT_PTR, INDEX : 
SUBL PTR_IN-ROW, CUR. TEXT_PTR, COL ; 
CMPL URSOR_COL; R11 3 
BLEQU 3 
CLRL  CURSOR_COL : 
PUSHL COL F 
PUSHL ROW : 

SHL  CURSOR_COL : 

SHL  CURSORTROW : 
PUSHL R : 
CALLS #5, SMGSSFIND_MIN_CURSOR_POS ; 
MOVL ROW, CURSOR_ROW : 
MOVL COL, CURSOR“COL : 
CMPL ¢ RSOR_COL, “BLANK_COL ; 
BLSSU $ ; 
PUSHL R : 
CALLS #1 ERASE L INE : 
BLBS STATUS, 18 ; 
MOVL OLD_MODE, @20(SP) : 
MOVL &(SP), RO F 
MOVAB =1(R11)(ROJ, END_ROW_INDEX 3 
ROVE (SP), R : 
MOVZBL (INDEX)CROJ, RENDITION : 
MOVAB 1(R8), FINAL_INDEX : 
MOVL NDEX, I 3 
BAB 6$ 3 
CAPE BREIL (1)CR1) ; 
BNEQ rye 3 
MOVL (SP) at : 
C c1>CRt » @24(R10)C1) ; 
BEQL é 5 ; 
MOVL sP) R1 : 
CMPZ2v #0, #8, (1)CR1], RENDITION ; 


H 16 


SMGSMIN Minimal update calculation ‘ “Jan-1985 21:55:1 AX-11 Bliss-32 V4.0-74 
1-018 SHGSSOUTPUT MINIMAL UPDATE - Calculate minimum ets 1 43:23:14 YONGRTL BueeRCTSMchWN G 2:1 
1 7 BEQL 26S : 
57 6 p 7 258: ROVL F INAL_ INDEX : 
D4 5 8 F 79 26$: AOBLEQ END_ROW_INDEX, I, 23$ : 
18 AE 29 ‘ : ge: SuBL NDEX, FINAL_INDEX, LEN : 
2c AF D TSTL RENDITION : 
1 j 7 BNEG 28$ : 
7E 7 9 CLRQ =(SP) : 
38 AE DD PUSHL NEW_TEXT_PTR : 
4 Ar DD PUSHL LEN : 
DD 0029 PUSHL R F : 
000000006 00 5 FB 0009 CALLS #5, SMGSSPIi_SCREEN : 
4 11 0029A BRB : 
2c AE bp 029C 28$:  PUSHL RENDITION : 
-7E 7C 0029F CLRQ.  =(SP) : 
3¢ AE DD 002A1 PUSHL NEW_TEXT_PTR : 
; 8 AE DD 00284 PUSHL LEN : 
59 DD OC2A7 PUSHL ; 
000000006 00 6 FB W2A9 CALLS #6 SNGS$PUT_SCREEN : 
01 0 Es 9 80 298: BLBS STATUS, 30$ : 
10 AE 18 AE co 02B4 308: ADDL2 LEN, CURSOR_COL ; 
5 18 °AE CO 002B9 31$: ADDL2 LEN. CUR_TERT_PTR : 
34 AE 18 AE CO 0028 ADDLe LEN, CURTATTR-PTR : 
20 AE 18 #AE OC 0 C ADDL2 LEN, NEW TEXT“PTR : 
0 AE 18 «#AE OC ¢ ADDL2 LEN, NEW-ATTR-PTR : 
28 AE 18 AE ¢ O2cc SUBL LEN. CHARS_LEFT : 
FEFA 0 D1 BRW 17$ : 
FDBE 52 01 3¢ AE F1 00204 328: ACBL. 60(SP), #1, ROW, 3$ ; 
04 BE 08 BA 8 AA 28 0020 MOVC3 40(R105, @8(R105, a4(SP) : 
18 BA 00 BE 38 AA 28 O02E MOVC3 40(R10), @0(SP), @24(R10) ; 
2 AA at 6 E9 MOV ZUL 2cR10), RO : 
30 BA 2c «BA 0 28 O2EF VC3 RO, @44(R10), @48(R10) : 
0 20 AA 3C 002F5 MOVZWL 32(R10), RO 3 
50 0 AA 7 02F9 ADDL2 48(R10); RO ; 
60 0 FD TSTB = (RO) ) : 
06 1 FF BEQL 33$ ; 
50 10 AE D 1 MOVL SURSOR_COL. ADJUSTED_COL ; 
11 3 BRB 4$ : 
50 10. AE 1 : 33$:  ASHL #1, CURSOR_COL, ADJUSTED_COL : 
0 d7 0030C DECL ADJUSTED COL ; 
34 AA 1¢ AE 80 34$:  MOVW CURSOR_ROW, 36(R10) ; 
6 AA 1 Ar B 1 MOVW  CURSORTCOL, 38(R10) : 
3 DD 0031 PUSHL R ; 
0000v CF 1 F 1A CALLS #1, SMGSSUPDATE_PHYSICAL_CURSOR F 
14 24 AE D 1F MOVL O 6 MODE, 920(SP) ; 
4 f E 4 BLBS  ac0TSP), 3 ; 
DD 8 PUSHL : 
000000006 90 1 FB A CALLS #1, SMGSSFLUSH_BUFFER ; 
1 20 1 35$: OVE wi. RO ; 


; Routine Size: 821 bytes, Routine Base: _SMGSCODE + 0000 
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date calculation =Jan-1985 21:55:11 AX-11 Bliss- -7 
E_PHYSICAL, CURSOR $-Jan-19 5 24:55:11 YaKelt BLi3s=32 v4.0 


ZSBTTL ASUESSUPDATE PHYSICAL CURSOR’ 
LOBAL ROUTINE SMGSSUPDATE_PAYSICAL_CURSOR (P_PBCB) = 


i FUNCTIONAL DESCRIPTION: 

: This routine forces the physical cursor to move to 

i RehRoPoasa ete any Internat structures. 

; The cursor is clipped to an appropriate place if it 

} falls outside the physical screen. 

; CALLING SEQUENCE: 

: ret_status.wic.v = SMGSSUPDATE_PHYSICAL_CURSOR ( P_PBCB.rab.r) 
FORMAL PARAMETERS: 

P_PBCB,rab.r Address of pasteboard control block 
: IMPLICIT INPUTS: 

WCBCWCB_W_CURR_CUR_ROW] Desired new row for physicai cursor 
WCBCWCB_W_CURR_CUR_COL] Desired new col for physical cursor 
: WCBCWCB_W_OLD_CUR_ROW] Physical row where cursor now is 
WCBCWCB_W_OLD_CUR_COL] Physical col where cursor now is 

: IMPLICIT OUTPUTS: 

WCBCWCB_W_CURR_CUR_ROW] New cursor row 

: WCBCWCB_W_CURR_CUR_COL] New cursor col 
: WCBCWCB_W_OLD_CUR_ROW] New cursor row 
: WCBCWCB_W_OLD_CUR_COL] New cursor col 
; COMPLETION STATUS: 
: SS$_NORMAL Normal successful completion 
; SIDE EFFECTS: 
. The cursor may move to a new physical location 
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SMGSMIN Minimal update calculation -Jan-1985 21:55:11 AX-11 Bliss-32 V4.0-74 Pa 19 
1-018 SMGSSUPDATE _PHYSICAL_CURSOR ee 4 $3:33:1) YONGRTL BURERCTSMChON. 6G 2:1 nas (9) 
; 606 90 IF .OLD_CURSOR_ROW NEQ .NEW_CURSOR_ROW 
; 607 3 OR. .OLD_CURSOR_COL NEQ .NEW CURSOR COL 
; 608 9 ¢ THEN BEGIN 
Ee foe 
> 611 905 i If the desired location is off the screen, 
: oie 090 ! Clip it to the nearest edge. 
2 2 oe 
: 615 909 IF_.NEW_CURSOR_ROW LSS 1 
: 616 310 THEN “NEW_CURSOR_ROW=1; 
: 618 O32 IF_.NEW_CURSOR_COL LSS 1 
; o8 Sal? THEN “NEW CURSOR_COL=1; 
: 621 0915 IF_.NEW_CURSOR_ROW GTRU .NUM_ROWS 
; o5¢ gag THEN “NEW CURSOR_ROW=.NUM_ROWS; 
: 624 0918 IF_.NEW_CURSOR_COL GTRU .NUM_COLS 
; 625 091 THEN NEW_CURSOR_COL=.NUM_COLS; 
Foy 8 Os 
: 628 9 i Physically move the cursor there. 
BR SS 
: 631 0925 SMGSSF IND_MIN_CURSOR_POS ( 
: 6 ¢ 09 § paca ! Pasteboard control block 
3 6 09 -OLD_CURSOR_ROW, ! Current location on screen 
; 634 0928 -OLD_CURSOR_COL, 
; 655 0929 »NEW_CURSOR_ROW ! Desired location 
: 636 0930 .NEW-CURSOR=COLS; 
3; 637 0931 
: 638 B28¢ END; 
8 gt. 
; ei 34 5 Make the new and the old cursor positions agree. 
: 64 9 } 
3 6446 83 8 OLD_CURSOR_ROW=.NEW_CURSOR_ROW; 
; 7? 9484 OLD_CURSOR_ COL=.NEW_CURSOR_COL; 
: $09 3c4 ! Special try: 
; 3 2e8 ! If current Line is special, mark the column as unknown. 
: 650 4 2 IF .CUR_LCVC.NEW_CURSOR_RGW) NEQ 0 
3 $31 B30 THEN “OLD_CURSOR_COL=0; 
; $38 96? 5 RETURN SS$_NORMAL 
: 654 Bee 
; 655 END; 

003C 00000 ENTRY SRSSSUPDATE PHYSICAL CURSOR. Save R2,R3,R4,-; 0840 


ee 


SMGSMIN Minimal update c gute tion b= Jan-1985 5 211 AX-11 Bliss-3 Page 20 
1-018 SMGSSUPDATE *PHYS] CURSOR “Oct-19 #}: 33:19 :19 SNGRTL BuceRCIsNchGN & B32;1 . (3 
4 AC DO 0000 MOVL P paCB, RO : 0890 
AO D MOVL 8TRO), R2 + 0891 
A p A MOVL (R25, RS + 0895 
Ae 9E 0000 MOV (Rd), R + 0898 
i A F 1 MOVAB (R2), Ro + 0899 
63 4 A : 16 cP - », (R3) : 0900 
64 26 ag BT 0001 Phpy = $BR2), (ROD : 0901 
4 BEQL 6$ 3 
63 : 0022 1$: TS? (83) + 0909 
0 4 00024 P5TR —s_ 28 : 
63 1 80 $ MOVW #1, (R3) + 0910 
64 8 28: TSTW (Ri,) : 0912 
03 14 B BGTR 3$ : 
64 01 g0 02D MOVW #7, (Re? + 0913 
51 02 a2 ¢ 99 ) 3$: MOVZWI. 2(R2) + 0915 
51 63 10 0 EC d CMPV #9. rier eR), R1 : 
4 16 00 9 BLEQU 4 : 
$3 02 A2 80 00038 MOVW 2(R2), (R3) + 0916 
1 06 Ad 3C OOO3F 48: MOVZWL 6(R2) : 0918 
51 64 10 00 EC 00043 CMPV 20, “Alen (R4), RI : 
04 1B 00048 BLEQU 5$° ; 
4 06 A2 0004A MOVW  6(R2), (R4) + 0919 
7E 64 Q004E 5$ CVTWL 36 (R4), =(SP) : 0930 
63 0051 CVTWL «6 (R3), =(SP) > 0929 
7E 36 A 0054 CVTWL 38(R2), -(SP) : 0928 
7E 4 A 0058 CvTWL 36(R2). =(SP) + 0927 
50 dD 0005¢ PUSHL RO) + 0925 
0000v CF 03 F O55 CALLS @# SMGSSF IND _MIN_CURSOR_POS : 
0 63 32 00063 6$ CvTwL (RS : 0938 
6 A 50 BO 00066 MOVW RO, $6¢R2) ; 
6 A 64 8 006A MOVW (Rh 38(R2) : 0939 
6045 06E TSTB Oper + 0944 
03 13 00071 BEQL : 
26 A2 Be 00073 CLRW 38 nap > 0945 
50 01 DO 00076 78 MOVL 1, RO : 0947 
04 00079 RET : 0949 


; Routine Size: 122 bytes, Routine Base: _SMGSCODE + 0335 


RSBTTL 
~ ROUTINE 
p DESCRIPTION: 


L 
S 
SET P 


This routine mov 
screen to a part 


| CALLING SEQUENCE: 
ret_status.wlc.v 


{FORMAL PARAMETERS: 
PBID.rl.r 
P_ROW.rl.r 
P_COL.rl.r 

IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

i COMPLETION STATUS: 

SMG$_WRONUMARG 
Snes INVPAS_ID 
SMG$_INVROW™ 
SMGS- he 
SS$_RORMA 
i SIDE EFFECTS: 
NONE 


RSOR R' 


s the physical cursor on a physical 
cular location. 


= SMGSSET_PHYSICAL_CURSOR ( PBI ROW.rL.r, 


Pasteboard id 
The row number to move to 
The column number to move to 


Grene number of arguments 
jnve id pasteboard id 

Position “s not within pasteboard (off top or bottom) 
Position is not within pasteboard (off left or right) 
Normal successful completion 
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Minimal update ca 


iculation 
SMGSSET_PHYSI tat CURSOR 

BEGIN 
BIND 

ROW 

COL 
LOCAL 

STATUS, 

PBCB 

wCB 
EXTERNAL LITERAL 

SMG$_INVROW, 


SMGS— INVCOL: 


-P_ROW, 
Pt “COL: 


: REF SPBCB_DECL, 
: REF SwCB_BECL; 


Bes dne19 
2-0ct-19 


t 42:3 


5: 
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AX-11 Bliss-3 
SMGRTL .BUGSRCE shonin. 3 2;1 
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SMGSMIN 
1-018 
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Minimal y date calculation 1:55:11 AX-11 Ot tesa ttoke 
SMGSSET_PHYSICAL_CURSOR 2-0ct-1984 12:58:19 SMGRTL .BUGSRC shenin. ° 2:1 
1907 SSMGSVALIDATE_ARGCOUNT(3,3); 
108 SSMGSGET_PBCB(.PBID.PBCB); 
101) WCB=.PBCBCPBCB_A_WCF.J; 
1918 BEGIN 
1014 
1015 BIND 
1016 
1017 NUM_R IWS = wCB WCB _u_NO_ROWS] : WORD, 
1018 ; NUM_COLS = WCBCWCB-W-NO-COLS : WORD, 
1019 CUR-FOW = WCBCWCB-W-CURR_CUR_ROW) WORD, 
1930 3 CUR-COL = WCBCWCB-W-CURR-CUR-COLJ WORD: 
10g@ ; IF .ROW GTRU .NUM_R 
102 THEN RETURN eAcS. TNVROW: 
1024 3 IF .COL U .NUM 
1963 THEN RETURN SAGS- INVCOL; 
1027 3 CUR_ROW=.ROW; 
1028 3 CUR-COL=.COL: 
13D 3 
1030 2 END; 
1631 2 
1032 2 !+ 
a7 § ‘ Immediately move it there now if batching is not in effecr. 
1035 2 
1036 IF -PECBLPBCB. L BATCH. steveld Eat 0 
1037 THEN EGIN 
1038 Oe TUss SHGSSUBDATE SPHYSICAL _CURSOR(.PBCB); 
1039 IF NOT » STATUS THEN RETURN <STATUS 
+ § END; ' Move cursor 
1042 2 RETURN SS$_NORMAL 
1043 2 
1044 1 END; 
-EXTRN SMG$_INVROW, SGS INVCOL 
-EXTRN SMGS~ SAGS_INVPAS_ID 
“EXTRN PBD_C_C Pap A_PBCB 
-EXTRN PBD"V ~pBUAVAIL 
0000 00000 -ENTRY SMGSSET_PHYSICAL_CURSOR, Save nothing 
03 6c 91 4 CMPB (AP), #3 
08 13 0000 BEQL 
50 00000000G_ 8F ? G00e +t #SMG$_WRONUMARG, RO 
50 046 «BC 08 OOGF 1% MOVL aPBID, RO 
11 1 13 BLSS 
00000000G 00 50 01 i> CMPL RO, PBD_L_COUNT 
: 14 0001C BGTR 28° 
08 000000006 98 £0 BAe BBS RO, PBD V_PB_AVAIL 
000000006 8F D0 00026 28 MOVL TshGs. IRVPAS" 1D, ts 


ss 


: 


122 bytes, 


; Routine Size: 


Minimal update oe 
SMGSSET_PHYSI tal. 


rr 
No 


FF13 


18¢ ten 


2} setae * at 
0 Al 
10 p 
50 000000006 8F 
10 0 
50 009000006 
AQ 68 eC 
AO ¢ «BC 
QOA4 C1 

gf 

CF 31 
03 50 
50 01 


Routine Base: _SMGSCODE 
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USMGRTL BUGSRC 


1:55:11 yen Bliss-32 v4.0-74 
#3 8:19 $s 


PBD_A pecetRod, PBCB 
8(PBCB) . 
#0, #16. stucB), ar_ROW 


#SMGS_INVROW, RO 

#0, #16, 6(WCB), aP_COL 
#SMGS_INVCOL, RO 
@P_ROW, 32(WCB) 


@P~COL, 34(WCB) 
16k(P (PBCB) 


PBCB 
#1, SMGSSUPDATE_PHYSICAL_CURSOR 
STATUS, 7$ 


MGMIN.B52;1 


v2 
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CQOooooooooooooco°oo 
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i FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 
P_PBCB.rab.r 
LINE _NO.rl.v 


COL_NO.rl.v 


DESIRED_LINE_NO.rl.v 
DESTRED_COL_NO.rl.v 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 


SIDE EFFECTS: 
NONE 


ind minimum cursor 


“Oct-19 8: 


P_PBCB 
LINE_NO, 

COL_NO 
DESTRED_LINE_NO, 
DESIRED_CO -AO 


ret_status.wilc.v = SAGSSF IND _AIM, CURSOR POS ( 


-fab.r, 
LINE_NO.rl.v, 


COL_NO.rl.v 
DESTRED_LINE_NO.rl.v, 
DESIRED-COL_NO.rl.v) 


Address of PBCB 


Current cursor Line number 
0 means it is unknown. 


Current cursor column number 
0 means it is unknown. 


Desired cursor Line number position 
Desired cursor column number position 


SS$_NORMAL Normal successful completion 


met ra PT Em et Al SEL 


F 
IN CURSOR_POS = Find minimum cursor pos. sequence’ 
SFIND_MIN-CURSOR_POS ( 


§ V4.0-74 
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Minimal update calculation -Jan-1 AX-11 Bliss-3 Pa 6 

SHGSSFIND MIN, CL CURSOR POS = Find minimum cursor b= Jan-1985 93; 33:14 YONGRTL BUSERCTSMGAIN B 832;1 oe 42 
BEGIN 

1999 

1098 BIND 

i 80 PBCB P_PBCB Hath By TEY. 

1101 W = .PBC PacB_A WCB) : BLO cK 

1 O¢ NUM_ROWS = wCB UCB u_NO ROWS) : 

110 NUM-COLS = WCBLWCB_W_NO COLS : WORD. 

1104 CURR_TEXT = .WCB WCBCAUSCR_TEXT BUF} : VECTORE BYTE), 

1105 CURR_ATTR ~ .WCBLWCB_A_SCR_ATTR_ BUF : VECTORE, BYTE), 

1106 LCV = .WCBLWCB-A_LINE CHAR : VECTORE BYTE), 

: 4 TERM. TYPE = PaCBCPBCB_B_DEVTYPE BYTE; 

1 9 LITERAL 

{ 

1111 INFINITY = 1000; ! Prohibitively large number, used 

1 \¢ i to reject a sequence. 

111 5 

1114 BUILTIN 

1115 2 

1116 2 EDIV; 

1117 § 

: \3 $ LOCAL 

1120 2 TRIAL STRING : VECTOR CSMG$K LONGEST_SEQUENCE ,BYTE), 

1121 2 ! Buffer in which to construct string 

1 $§ c i to be output. 

1123 2 ' Current ' th Ret TRIAL_STRING. 

1124 2 ADgusreD WIDTH, i Width or wi 

' $? $ SET_CUR_CEN; Length of the “penned set_cursor 


sequence to reposition cursor. 


~<¢ 


1 
SMGSMIN inimal update calculation B-san-t9 5 21:55:1 AX-11 Bliss-32 V4.0-74 p 7 
1-018 MGSSF IND MIN. CURSOR. POS - Find minimum cursor =300- 138? $3:33:13 SNGRTL BUGERCTSNGHGN 2;1 age 48) 
3 4 3 
! If the current position is unknown, 3 
then we must use the most general sequence. ; 
IF .LINE_NO EQL ; 
OR .COL_RO EQL 3 
THEN RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_NO,.LINE_NO); : 


' 
! General strategy is to come up with a sequence of characters that 

! will position us to the desired Line and column number in less 

! characters than a set_cursor sequence will need. 

! The short-cut sequences to get to a specific Line include: 

: - <LF*s> to move down the screen. 

! The short-cut sequences to get to a specific column include: 

! 1. <TAB> to tab-stop immediately before desired column and 

‘ repeat a number of the current characters until we get to 

: desired column position. 

: . <TAB> to tab=stop immediately beyond desired column and 

; follow that by a number of <BS's> to get to the desired column. 
: If at “"y point the trial sequence of characters gets to be 

! greater than the set_cursor sequence, abandon the effort and use the 
set_cursor sequence. 
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me a me a ed ed ad oe = = = od wt 8 9 2 2 [7 4 
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BBB EEE EE H&E A.APININI|DINININININPININININININININININININIPINIPINIPINPIPIPIPYIPIPINYIPIPUPINPIPIPUPONPPD 
“ ° 
4 


64 
+H TS_LEN = 0; ! Length of string constructed so far 
1+ 
868 : Calculate what the cost of a set_cursor sequence is will be for the 
869 ! desired Line and column number. “This will give us the lower bound we 
er must beat if an alternate sequence is better. 
87 ; 
B93 SSMGSGET_TERM_DATA(SET_CURSOR_ABS, .DESIRED_LINE_NO,.DESIRED_COL_NO); 
He: SET_CUR_CEN =" .PBCBCPBTB_L_CAP_LENGTHI; 
876 + 
hs } Now see if we are already on the proper Line. 
B79 
ea0 ol »~LINE_NO NEQ .DESIRED_LINE_NO 
HG BEGIN ! Adjust Line number 
a7 tee INE_NO LSS .LINE_NO 
885 BEGIN ! Move upward 
837 \. 
88 ! No choice -- must use general cursor sequencing to move 
89 ! upward. Cuteut general set_cursor sequence 
30 : pee ine DESIRED_LINE_NO and 
4 : DESIR D_COL_NOY and return to caller. 
; : 
Boe RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_WNO,.LINE_NO) 


1 


H 
SMGSMIN Minimal update calculation =Jan-1985 21:55:1 AX-11 Bliss-32 V4.0-74 Page 28 
1-018 SMGSSF IND MIN, CURSOR. POS - Find minimum cursor eet & $3:33:] YSMGRTL BUGERCISMGHGN. B52; 1 ’ 185 
3 1184 4 END ! Move upward ° 
: 838 1185 3 ELSE : 
; 898 1186 4 BEGIN ! Move downward 3 
; 899 1187 4 LOCAL : 
; 900 1188 4 WIDE_WARNING, ! TRUE if spanning across a wide Line $ 
; 901 1189 4 LINES_D ; ! No. of Lines down we need to move 3 
; 1190 4 : 
; Ww 1191 4 '¢ 3 
> 904 1136 4 ! See if we can reach DESIRED_LINE_NO in a number of <LF's> : 
: 905 1193 4 ! which is less than the number of characters in the $ 
> 906 1194 4 ! set_cursor seqyenee. : 
: 907 1195 4 ! We do not permit Line feed through the bottom of the scrolling $ 
; 908 1196 4 ! region, since the cursor would not be able to cross it that way 3 
; 909 1197 4 ! (and it would cause a scroll to occur). ; 
; 910 1198 4 : We do not permit Line feed through a double wide (or double high) 3 
>; 911 1199 4 ' Line, because in some cases, this gene work. In particular, : 
; alg 1200 4 ' ona v . if you are in column 60, say and line feed down 3 
s 91 1201 4 ' through a double wide Line, when you get back to a single : 
; 914 1606 4 ! wide line, the cursor has now gotten to column 40! ; 
: 915 1203 4 !- : 
> 916 1204 4 $ 
; 917 1205 4 LINES_DOWN = ,DESIRED_LINE_NO = .LINE_NO; $ 
; 918 1206 4 3 
; 919 1207 4 '¢ 3 
: 920 1208 4 : Set WIDE WARNING to TRUE if we would cross through or into or : 
> 921 1209 4 ! from a wide Line. Double high Lines are considered to be wide. $ 
; os¢ 1210 4 - 3 
; We 1211 4 3 
: 924 \si¢ 4 W1IDE_WARNING=0; : 
; Feo 1213 4 IF .CCVCO) NEQ 0 3 
; 926 1214 4 HEN 3 
; 927 1215 4 INCR L FROM .LINE_NO TO .DESIRED_LINE_NO DO : 
: 928 sig 4 F .LCVC.CJ NEQ 0 3 
: 44 1217 5 THEN BEGIN : 
; 930 1218 5 WIDE _WARNING=1; 3 
3; 931 1219 5§ EXxITCOOP 3 
; 932 1220 4 END; : 
; 933 1221 4 3 
3; 934 \ss¢ 4 IF (.LINES DOWN LSS .SET_CUR LEN) AND : 
3; 935 1223 5 (.LINE_NO * .LINES_DOQN LEQU .PBCBCPBCB_W_BOT SCROLL_LINE) 3 
3; 936 1224 4 OR .LINE_NO GTRU -PBCBCPBCB_W_BOT_SCROCL_LINEJ) AND 3 
: 937 1 $3 5 _ (NOT .WIDE_WARNING) : 
; 938 1226 4 THEN 3 
; 939 1 sf BEGIN ! Do it with <LF's> 3 
; 940 1228 '¢ 3 
3; 941 1 $3 ! Put (.LINES DOWN) <LF's> into TRIAL_STRING and set 
: ang 1539 : TS_LEN to .CINES_DOWN. 
3 944 1S36 5 CHSFILL (LF, .LINES DOWN, TRIAL_STRING); 
> 945 123 3 TS_LEN = .LINES_DOWR; 
7 94 1 Md ENB ! Do it with <LF's> 
; 94 1235 4 ELSE 
3; 948 1 § 5 BEGIN ! Too far 
: 949 4 '¢ 
; 950 1238 ! Too far down or we would be crossing a lower scroll 
3 32) : z; : , boundary or a wide Line -- use general set cursor sequence 
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n =Jan-1985 21:55:11 AX-11 Bliss-32 V4.0-74 
- Find minimum cursor $-Jan-1985 $3:33:1) ONeR te BuceRcisMchin G 231 


RETURN SET CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_NO,.LINE_NO) 
END; ' Too far 


v= 
ate 
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Page 48) 


ee 
ea 


END; ! Move downward 
END; ! Adjust Line number 


14 
! Reach here when we have constructed the minimal sequence to reach the 
: desired Line =--not using general cursor addressing sequence. TS_LEN 
tells us how long that sequence is. 


I ta NEQ .DESIRED_COL_NO 
BEGIN ! Column adjustment 
LOCAL 


LEAST COST, ! Least cost among considered strategies 
BEST STRAT, ! Best update strategy which is better 

! then general cursor pest tienine sequence. 
INDEX, ! Index into Sum fen and CURR_ATTR 
DCN_QUAD : VECTOR [2,LONGJ, ! Desired column number 

! as a quadword 

DELTA_COL, ! No. of columns between where we are and where 
we want to b 


: e. 

NO_TABS, ! No. of <TAB's> to get to i.o-stop before 
! DESIRED_COL_NO. 

NO_LRETYPES, ! No. of chars that need to be retyped if we 
: tab to tab-stop before 

NO_BS; f 


No. of <BS's> to get from Haig beyond 
DESIRED_COL_NO back to DESIRED_COL_NO. 
+ 
aes short-cut sequence to position to desired column 
! number. 
! If earlier on Line, 3 strategies are possible: 
1. Do it with backspaces 
2. Do it with <CR> and <TAB's> to tab-stop befcre followed 


: by retypes. 
Se ee it vith <CR> and <TAB's> to tab-stop beyond followed 
! $>. 
! If Later on line, 3 strategies are possible: 
' 4. Do it with euirves- 

5. Do it with <TAB’s> to tab-stop before followed by 

t 

i] 


retypes. 
6. Do it with <TAB's> to tab-stop after followed by <BS's>. 


CO OD C9 09 ISSN SIN SND DID PDIP APD III BPE 


Calc. no of <TAB’s> needed to get to tab-stop before 
DESIRED_COL_NO and the no. of subsequent retypes needed. 


SSB ARAN HOO NO UE UINI—ODG0 Or PONG > DOO Or dO G0 WOU ene 


wnN— 


DCN_QUAD £03 = ,DESIRED_COL_NO -1; 
DCN-QUAD (1) = 0; 
EDIV ( ZREF(8), BCN_QUADCOJ, NO_TABS, NO_RETYPES); 


'¢ 
! Jf terminal doesn't support tabs, 
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update calculation be an-1985 21: AX-11 Blis a P 0 

ND MIN, CORSOR-POS © Find minimum cursor 2-d0n-1980 99:88;4 SMGRTL BUGEREISMCAWN 6251 age 43 

: or 
i then set NO_TABS to inf nity. 


'¢ 


9 

9 

9 

Q IF .PBCBCPBCB_V ABS] OR NOT .PBCBCPBCB_V_TABS] 

0 THEN NO_ TABS iat ITY; 

9 r 

0 i Calc. number of <BS's> needed if we go to tab-stop after 
0 ! DESIRED _COL_NO. This strategy con, t followed if the 
0 i next tab stop is off past the righ t of the screen. In 
? } that case, we make NO_BS pronibi ively Large. 

! ' 

1 IF .LCVC.DESIRED_LINE_NOJ NEQ 0 
4 THEN ADJUSTED “UID TAS NUM .COLS/2 

: ELSE ADJUSTED_WIDTH=.NUM_ COOLS; 
31 IF (.NO nee Es i SO sys TED WIDTH 
31 THEN ~ =8- O RETY PES 
4 ELSE NO -B8 = INFIN 
32 

2 
32 


x Set NO_BS to infinity if the terminal does not support backspacing. 


$1_COST, S$2_COST, $3_COST; 


3 

32 

32 IF NOT .PBCBCPBCB_V_BS) 

35 THEN NO_BS=INFINITY; 

2 '¢ 

35 ' In we need to do retypes, calc. where in CURR_TEXT and 
35 :_CU CURR *ATIR we need to Look. 

3 . 

33 INDEX = SL ( .DESIRED_LINE_NO, ((.NO_TABS*8) + 1)); 
33 IF .DESIRED_COL_NO LEQ .COL_NO 

33 THEN 

33 BEGIN ! Earlier in Line 

33 LOCAL. 

33 

33 
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st - strategies 
t BS 


rad 


! Co 
$3 ~ + then retype 
i $$: tabs then BS 


! Find the cost of stategies for moving back in Line 
IF _Pacetrece_v_eS) 
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THE 

ELSE S1_COST = .COL_NO - .DESIRED_COL_NO ! No of <BS"s> 
$1_COST=INFINITY; 

S2.COST = 1 r <CR> 
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! Fo 
+ .NO_TABS : For no. of tabs to tab-stop 
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+ .NO_RETYPES; 


+ .NO_TABS + 1 
+ .20_BS; 


: 3 
- Find minimum cursor 


K 1 
wBet=19Be 12:58:19 


For no. of retypes 
For <CR> 


} + the of tabs to tab-stop 


after 


! For no. of <BS's> 
! Find best strategy for moving backward 


in Line 


BEST_STRAT = 1; LEAST_COST = .S1_COST; 
IF .S2_COST LSS .LEAST_COST THEN 
BEGIN BEST_STRAT = 2; LEAST_COST = .S2_COST; END; 
IF .$3_COST LSS .LEAST_COST THEN 
BEGIN BEST_STRAT =3 ; LEAST_COST = ~S3_COST; END; 
END ! Earlier Tn Line 
ELSE 
RESIN ' Later in Line 
LOCA 


L 
$4_COST, S5_COST, S6_COST; 


! Cost of strategies 


! Find costs of strategies for moving forward in Line 
S4_COST = .DESIRED_COL_NO - .COL_NO; ! For just retypes 


IF (.NO_TABS * 8)+1 GTR .COL_NO 


é ad NOT .PBCBCPBCB_V_NOTABS) 


BEGIN 
LOCA 


NEW"NO_ 
NEW-NO_RETYPES; 


COL_QUAD C9 
COL~QUAD [1] = 0 
EDIV CEREF ( 


), 


N = 
S5-COST = .NO_TABS 


S6_COST = .NO_TABS + 1 
+ .NO_BS; 
! Tabbing forward is 
ELSE 
esis : Tobeine forward n 
S5_COST = INFINITY; : 
S6_COST = INFINITY; 
3; |! Tabbing forwar 
! Find best strategy 


COL_QUAD CO 
TABS"= .NEW 


AND .PBCBCPBCB_V_TABS] 


' ! Tabbing forward is possible 
COL_QUAD : VECTOR (2,LONG], ! COL_NO as quadword 


= .COL_NO - 1; 
], NEW 
NO_TA 


'“For no. of tabs to tab-stop 
! before 
+ .NO_RETYPES;! For 


WNO_TABS, NEW_NO_RETYPES); 


from current position 
no. of retypes 


H 4 4 no, of tabs to tab-stop 


ter from current position 
! For no. of <BS's> 
possible 


ot possible 
! Set to prohibitive value 
: Set to prohibitive value 
d not possible 
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calcu b-san-19 5 :55:11 AX-11 Bliss-32 V4.0-74 Pa 
CURSOR ty ae HE oP ay ie ee 9 18 
BEST_STRAT = 4; LEAST_COST = .S4_COST; 
IF .S5_COST LSS .LEAST_COST THEN 
BEGIN BEST_STRAT = 5; LEAST_COST = .S5_COST; END; 
IF .S6_ COST LSS .LEAST_COST THEN 
BEGIN BEST_STRAT = 6; LEAST_COST = .S6_COST; END; 
END; ! Later in Line 


IF giSaben + .LEAST_COST GTR .SET_CUR_LEN 


TRE 
@EGIN ! Abandon effort 
RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO,.DESIRED_COL_NO,.LINE_NO) 
EN); ! Abandon effort 


care -BEST_STRAT FROM 1 TO 6 OF 


C1]:BEGIN ! Backspaces only. 
NO_BS = .COL_NO - .DESIRED_COL_NO ; 
CHSFILL ( 8S> .NO_BS, TRIAC_STRING C.TS_LEN3); 
TS_LEN = .TS_LEN = .NO_BS; 
NB; ! Backspace only. 


C2]:BEGIN ! <CR>, <TAB's> to tab-stop before, retypes. 


1+ 

! If there are actually characters to be retyped and 

! attributes are involved, give up and resort to general 
! cursor positioning sequence. aS 

! It will cost us too much to select-graphic-rendition 
and undo select graphic rendition. 


IF .NO_RETYPES NEQ 0 AND 
CHSTOMPARE (0, 0, ' Len, addr 
sNO_RETYPES CURR_ATTRC. INDEX], 


fall 
bite ) NEQ 0 
RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_NO,.LINE_NO); 
TRIAL STRING C.TS_LEN) = CR; 
TS_LEN = .TS_LEN # 1; 
CHSFILL ( TAB, .NO_TABS, TRIAL_STRING C.TS_LEN)); 
TS LEN = .T TABS; 


L : ; 

CHSMOVE ( .NO_RETYPES, CURR_TEXT C.INDEX), 
TRIAL STRING C.TS"LENJ); 

TS_LEN = .TS_LER + .NO 


RETYPES; 
END ! <CR>, <TAB'sS to tab=-stop before, retypes. 


= .TS_LEN + .NO_TABS 
N = .TS_LEN * .NO_BS; 
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END; ! <CR>, <TAB'sS> to tab-stop after, <BS's> 
:BEGIN ! Retypes only. 

'¢ 

! If there are actually characters to be retyped and 

! attributes are involved, give up and resort to general 
' cursor positioning sequence. 


' 
' 
! It will cost us too much to select-graphic-rendition 
and undo select graphic rendition. 


NO_RETYPES = .DESIRED_COL_NO = .COL_NO; 
INDEX = $L ( DESIREDILINE_NO, ~COL=NO}; 
IF .NO_RETYPES NEQ 0 “AND 
CHSTOMPARE (0, 0 ! Len, addr 
gNOARETYPES, CORR_ATTRC. INDEX, 


E 
RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO,.DESIRED_COL_NO,.I.INE_NO); 


CHSMOVE ( .NO_RETYPES, CURR_TEXT C.INDEX], 
TRIAL_STRING C.TS"LENJ); 

TS_LEN = .TS_LER + .NO_RETYPES; 

ENB; ! Retypes only: 


(5]:BEGIN ! <TAB's> to tab-stop before, retypes. 
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! If there are actually characters to be retyped and 

! attributes are involved, give up and resort to general 
! cursor positioning sequence. : fey 

! It will cost us too much to select-graphic-rendition 
and undo select graphic rendition. 


IF .NO_RETYPES NEQ 0 AND 
CHSTOMPARE (0, 0, ! Len, addr 
sNO_RETYPES CURR_ATTRC. INDEX], 


Fall 
) NEQ 0 
RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_NO, .LINE_NO); 


CHSFILL ( TAB, .NO_TABS, TRIAL_STRING C.TS_LENJ); 
EN = .TS_LEN +7.NO_TABS; 
CHSMOVE (° .NO_RETYPE CURR TEXT C. INDEX), 
TRIAL STRING C.TS"LENJ); 
TS LEN = .TS_LER + .NO_RETYPES 


END; ' <TAB's> to tab-stop before, retypes. 
N  ! <TAB's> to tab-stop after, <BS'‘s>. 
CHSFILL ( TAB, .NO_TABS + 1, TRIAL_STRING L.TS_LENJ); 
TS_LEN = .TS_LEN +”.NO TABS + 1; 
CHSFILL ( BS> .NO_BS, TRIAL_STRING C.TS_LEN)); 
TS_LEN = .TS_LEN * .NO_BS; 
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' Length 


SOUTPUT_STRING(.TS_LEN, TRIAL_STRING,O); 
RETURN SS$_NORMAL 
! End of routine SMGSSFIND_MIN_CURSOR_POS 
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O23 3 Bow 9s : 
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BIND 
PBCB = «PAPBCe : BLOCKC.BYTE). : 
WCB = .PBCBCPBCB_A_wCB) : BLOCKE BYTE : 
LCV = LWCBCWCB_A-SCR_LINE_CHAR] : VECTORE BYTE); : 
LOCAL : 


STATUS; ' Local status 
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SET_CURSOR = Generate set-cursor sequence -0ct-1984 12:58:19 SMGRTL .BUGSRC JSMGMIN.B52;1 (18) 
16 ‘+ H 
1605 ! If we are currently on a double wide or high row (or if the ; 
16 ! possibility qxists then because of bugs in the VT100 hardware, ‘ 
1608 we first position to column 1 of the desired Line. ° 
160 : : 
1610 IF (. CURRENT ROW EQL_0 AND .LCVCO] NEQ 0) ; 
1611 OR .LCVC.CURRENT_ROW) NEQ 0 : 
1oi¢ THEN BEGIN ! Move to beginning of desired Line ° 
1ele SSMGSGET_TERM_DATA(SET_CURSOR_ABS, .DESIRED_LINE_NO,1); ; 
1616 14 
1617 ! Output the escape sequence. e 
BE : : 
1 i UF ee OLEOCS L CAP LENGTH NEQ 0 : 
16 § & eittbadietanatiiepaam Ty ee ‘ 
1623 4 . PBCBLPBCB_A_CAP_GUFFERJ); : 
1624 4 IF NOT .STATUS THEN RETURN .STATUS e 
1 3 oe : 
1 i END; ! Move to beginning of desired Line : 
106? '¢ ; 
1631 Create the appropriate escape sequence. . 
16 : 
1638 SSMGSGET_TERM_DATA(SET_CURSOR_ABS, .DESIRED_LINE_NO,.DESIRED_COL_NO); : 
1635 1+ : 
16 ! Output the escape sequence. ° 
1638 § 
1639 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 ‘ 
1640 THEN N ‘ 
1641 STATUS=SMGS$SOUTPUT (PBCB, .PBCB pace CAP LENGTH ° 
164g .PBCBLPBCB_A_CAP—BUFFERJ); : 
164 IF NOT .STATUS THEN RETURN .STATUS e 
Hb ot: END; : 
1666 RETURN SS$_NORMAL ‘ 
1648 END; ! Routine SET_CURSOR : 
, Save R2,R3,R4,R5,R6 ; 1545 ; 
§ 900000006 9€ MOVAB SMGSGET-TERM_OATA, R6 : : 
6 9 ROVAR — SRGSSOUTPUT, “RS ; : 
AC 50 9001 mov; Pp PACA. Re : 1597 : 
b8 aS D 1 MOVL ts St : 1598 F 


Minimal update calculation 
SET_CURSOR = Generate set-cursor sequence 
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SMGSSOUTPUT 
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R2), R3 
INPUT 
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R2> 
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SMGSGET_TERM_DATA 


US, 10$ 
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1-018 SET_CUR RSO - Generate set-cursor sequence =)202 1382 #3; 33: 3 YONGRTL BUGERCISMCHON B B52;1 OF 98) i 
Os 3 33 BLBS STATUS, 4 : 1643 
0 4 oF 8$: pert STATUS, R : 
01 00 000DB 9$: MOVL 1, RO + 1646 
04 QOODE 108: RET : 1648 


; Routine Size: 223 bytes, Routine Base: _SMGSCODE + 0757 


Pa as 
SNGRTL BUGSRCISMGHIN. 8 852;1 619) 
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ate calculation B-Jan-19 5 ¢} 33:1 11 vane Bliss-3 
1-018 4 19 


upd 
NE - Erase to end-of-Lline 2-0ct-19 
seri "ERASE_LINE = Erase to end-of-Line' 


ne 


ni 
AS 
3 1 1649 12% 
3 (1 1650 1 ROUTINE ERASE-LINE(P_PBCB) = 
; 3 1651 1 
3 1 16 § 1 te¢ 
5 } \ ? } } FUNCTIONAL DESCRIPTION: 
: } 19 5 } ; Outputs an erase-to-end-of-Line sequence to the screen. 
: 1887 i CALLING SEQUENCE: 
; : 1885 1 ret_status.wilc.v = ERASE_LINE ( P_PBCB.rab.r) 
: 1681 | FORMAL PARAMETERS: 
: 1 1868 1 P_PBCB.rab.r Address of PBCB 
: 1 1664 1! 
: 1 1665 1 ! IMPLICIT INPUTS: 
3; 1 1666 1! 
31 1667 1! NONE 
3 7 1668 1! 
3s 1 198 1 ! IMPLICIT OUTPUTS: 
3 1 1670 1! 
eS 1671 1! NONE 
. 9 lore 1! 
3 } 1977 ’ COMPLETION STATUS: 
:1 1675 1: SS$_NORMAL Normal successful completion 
3 1 lore 1! errors from SMGSSOUTPUT 
3 1 1677 1! 
3 1 1678 1°! SIDE EFFECTS: 
: 1 1679 1! 
e ¥ 1680 1! NONE 
3 1 1681 1 !-- 
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- Erase to end-of-Line 2-0ct-1 ANGRTL BUGERCISHCHIN.B 852;1 (20) 


ot 
Ww 
3 > 


LOCAL 


E 
16 ¢ BEGIN 
16 
Mb : BIND 
+ § PBCB = .P_PBCB : BLOCKC BYTE); 
16 3 
16 
1690 STATUS; ' local status 
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- Erase to end-of-Line 


3 © 


14 
Create the appropriate escape sequence. 


SSMGSGET_TERM_DATA(ERASE_TO_END_LINE); 


Output the escape sequence. 


RETURN SS$_NORMAL 
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IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
STATUS=SMGSSOUTPUT (PBCB, .PBCB pBCB_L 
IF NOT «STATUS THEN RETURN .STATUS 


! Routine ERASE_LINE 


; Routine Size: Routine Base: 
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SMGSRIN Rinimal te calculation 8 san-1985 17 AX-11 Bliss-32 v4é.0-74 e 48 
1-018 ERASE _LINE = Erase to end-of-l ine s3et-19be #3: 33: 279 SMGRTL .BUGSRC JSMGMIN.B3<; 1 70 22) | 
; 1711 #1 END 
: 128 1712 0 EL UDOR 
| 
| 
; PSECT SUMMARY 
: Name Bytes Attributes 
;  _SMGSCODE 2196 NOVEC.NOWRT, RD, EXE, SHR, LCL. REL, CON, PIC, ALIGN(2) 
3 Library Statistics 
: wocecce= Symbols -------- Pages Processi 
; File Total Loaded Percent nonoed "yme fe 
: _$25S$DUA18:(SYSLIBISTARLET.L32:1 9776 10 581 :01.0 
>;  [$255$oual : SMO TL OBJ RTL IB.L 3:3 36 g 38 700.1 
; “$255$0UA1 : LSMGRTL.OBJISMGL 1B. 32;1 46 4 1 700.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1SS$: SMG"IN/OBJ=O08/$:SMGMIN MSRCS: SMGMIN/UFDATE = (BUGS: SMGMIN) 


Size: 21% code + 0 data bytes 
00:49.7 

Elapsed i tee: 21:°06.9 

Lines/CPU Min: 1868 
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